MacWorld 1998 May/Macworld (1998-05).dmg/Games World/Shareware Games/Arcade/Mission of Doom/Mission of Doom.DXR/00009.ls

Text File | 1995-12-11 | 5.5 KB | 231 lines

on startMovie
  global mh, vH, rightincrementH, leftincrementH, incrementV, shot, targetcount, hits
  set targetcount to 0
  set hits to 0
  cursor(2)
  puppetSprite(30, 1)
  puppetSprite(33, 1)
  puppetSprite(37, 1)
  puppetSprite(38, 1)
  set the visible of sprite 48 to 0
  set the visible of sprite 25 to 0
  set the visible of sprite 33 to 0
  set the visible of sprite 30 to 0
  set the visible of sprite 34 to 0
  set the visible of sprite 35 to 0
end

on WAIT howlong
  startTimer()
  repeat while the timer < howlong
  end repeat
end

on PPC
  global mh, mV, rightincrementH, leftincrementH, incrementV, shot, gun
  set mh to the mouseH
  set mV to the mouseV
  set incrementV to 0
  puppetSound(1, 14)
  set the visible of sprite 34 to 1
  set the visible of sprite 35 to 1
  set the visible of sprite 30 to 0
  set rightincrementH to (587 - mh) / 10
  set leftincrementH to (mh - 47) / 10
  set incrementV to (294 - mV) / 10
  set the locH of sprite 34 to 587
  set the locV of sprite 34 to 294
  set the locH of sprite 35 to 47
  set the locV of sprite 35 to 294
  set the width of sprite 34 to 53
  set the height of sprite 34 to 53
  set the width of sprite 35 to 53
  set the height of sprite 35 to 53
  set the castNum of sprite 30 to 81
  set the locH of sprite 30 to mh
  set the locV of sprite 30 to mV
  set the locH of sprite 47 to mh
  set the locV of sprite 47 to mV
  set shot to 1
  checkPPC()
end

on checkPPC
  global mh, mV, rightincrementH, leftincrementH, incrementV, shot
  puppetSprite(34, 1)
  puppetSprite(35, 1)
  if shot < 11 then
    set the width of sprite 34 to the width of sprite 34 - 5
    set the height of sprite 34 to the height of sprite 34 - 5
    set the width of sprite 35 to the width of sprite 35 - 5
    set the height of sprite 35 to the height of sprite 35 - 5
    set the locH of sprite 34 to the locH of sprite 34 - rightincrementH
    set the locV of sprite 34 to the locV of sprite 34 - incrementV
    set the locH of sprite 35 to the locH of sprite 35 + leftincrementH
    set the locV of sprite 35 to the locV of sprite 35 - incrementV
    set shot to shot + 1
    if shot = 10 then
      set the visible of sprite 30 to 1
      puppetSound(1, 30)
    else
      nothing()
    end if
  else
    checkfire()
    set the visible of sprite 34 to 0
    set the visible of sprite 35 to 0
  end if
end

on alienhands
  if the mouseV < 50 then
    set the castNum of sprite 37 to 17
  else
    if the mouseV < 100 then
      set the castNum of sprite 37 to 18
    else
      if the mouseV < 150 then
        set the castNum of sprite 37 to 19
      else
        if the mouseV < 200 then
          set the castNum of sprite 37 to 20
        else
          if the mouseV < 250 then
            set the castNum of sprite 37 to 21
          else
            set the castNum of sprite 37 to 22
          end if
        end if
      end if
    end if
  end if
  if the mouseH < 110 then
    set the castNum of sprite 38 to 38
  else
    if the mouseH < 220 then
      set the castNum of sprite 38 to 37
    else
      if the mouseH < 330 then
        set the castNum of sprite 38 to 36
      else
        if the mouseH < 440 then
          set the castNum of sprite 38 to 35
        else
          if the mouseH < 550 then
            set the castNum of sprite 38 to 34
          else
            set the castNum of sprite 38 to 33
          end if
        end if
      end if
    end if
  end if
end

on target
  set x to random(10)
  if x = 1 then
    go("caddy")
  else
    if x = 2 then
      go("jet")
    else
      if x = 3 then
        go("tank1")
      else
        if x = 4 then
          go("tank2")
        else
          if x = 5 then
            go("whitecar")
          else
            if x = 6 then
              go("f18")
            else
              go(the frame - 2)
            end if
          end if
        end if
      end if
    end if
  end if
end

on checkfire
  set the castNum of sprite 30 to the castNum of sprite 30 + 1
  if the castNum of sprite 30 = 111 then
    set the visible of sprite 30 to 0
    set the castNum of sprite 30 to 81
  end if
  updateStage()
end

on explosion
  global mh, mV, hits
  set the locH of sprite 25 to mh
  set the locV of sprite 25 to mV
  set the visible of sprite 25 to 1
  repeat with y = 1 to 3
    repeat with x = 75 to 78
      set the castNum of sprite 25 to x
      updateStage()
    end repeat
  end repeat
  set the visible of sprite 25 to 0
  set laff to random(4)
  if laff = 1 then
    go("laugh3")
  else
    if laff = 2 then
      go("laugh2")
    else
      go("laugh1")
    end if
  end if
  set hits to hits + 1
  set the castNum of sprite 33 to the castNum of sprite 33 + 1
  if the castNum of sprite 33 > 126 then
    set the visible of sprite 34 to 0
    set the visible of sprite 35 to 0
    go("flyup")
  end if
end

on checkscore
  go("flyup")
end

on checkcityhits
  repeat with x = 11 to 12
    if (the width of sprite 34 < 5) and sprite 47 intersects x then
      explosion()
    end if
  end repeat
  repeat with x = 16 to 17
    if (the width of sprite 34 < 5) and sprite 47 intersects x then
      explosion()
    end if
  end repeat
end

on reinitialize
  global mh, vH, rightincrementH, leftincrementH, incrementV, shot, targetcount, hits
  set targetcount to 0
  set hits to 0
  set the castNum of sprite 33 to 114
  set the visible of sprite 25 to 0
  set the visible of sprite 33 to 0
  set the visible of sprite 30 to 0
  set the visible of sprite 34 to 0
  set the visible of sprite 35 to 0
end

on progress
  global hits
  if hits > 5 then
    go("goodprog")
  else
    go("badprog")
  end if
end